MacWorld 1999 December/Dec99.iso/Data/Main.dxr/00178_RETURN searcher.ls

Text File | 1999-10-05 | 1.5 KB | 57 lines

global gDB_Table1

on new me
  return me
end

on keyDown me
  if the key <> RETURN then
    pass()
  else
    mSetCriteria(gDB_Table1, "Title", "=", EMPTY)
    t = the text of field "S Title"
    if t <> EMPTY then
      mSetCriteria(gDB_Table1, "or", "Title", "contains", t)
    end if
    t = the text of field "S Version"
    if t <> EMPTY then
      mSetCriteria(gDB_Table1, "or", "Version", "contains", t)
    end if
    t = the text of field "S Author"
    if t <> EMPTY then
      mSetCriteria(gDB_Table1, "or", "Author", "contains", t)
    end if
    t = the text of field "S Type"
    if t <> EMPTY then
      mSetCriteria(gDB_Table1, "or", "Type", "contains", t)
    end if
    t = the text of field "S Category"
    if t <> EMPTY then
      mSetCriteria(gDB_Table1, "or", "Category", "contains", t)
    end if
    t = the text of field "S Email"
    if t <> EMPTY then
      mSetCriteria(gDB_Table1, "or", "Email", "contains", t)
    end if
    t = the text of field "S URL"
    if t <> EMPTY then
      mSetCriteria(gDB_Table1, "or", "URL", "contains", t)
    end if
    t = the text of field "S Price"
    if t <> EMPTY then
      mSetCriteria(gDB_Table1, "or", "Price", "contains", t)
    end if
    t = the text of field "S Description"
    if t <> EMPTY then
      mSetCriteria(gDB_Table1, "or", "Description", "contains", t)
    end if
    mSelect(gDB_Table1)
    if mSelectCount(gDB_Table1) = 0 then
      alert("No products with those criteria found.")
    else
      showProdInfo(1)
      go("Shareware")
    end if
  end if
end